let rec sum = function
  | [] -> 0
  | h::t -> h + sum t


let fold_sum = List.fold_left (+) 0
